(winner-change-fun): Don't use pushnew.

diff --git a/lisp/winner.el b/lisp/winner.el
index ad6ae4399ed760fbb79f76c809f5145fcf59938d..e0ef71ad71338d7cb6589c9a97a57ccdbf9358b3 100644 (file)
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -81,7 +81,8 @@ which excludes \"invisible buffers\".")
 (defvar winner-modified-list nil)
 
 (defun winner-change-fun ()
-  (pushnew (selected-frame) winner-modified-list))
+  (or (memq (selected-frame) winner-modified-list)
+      (push (selected-frame) winner-modified-list)))
 
 (defun winner-save-new-configurations ()
   (while winner-modified-list